object SevkiyatTeslimF: TSevkiyatTeslimF
  Left = 77
  Top = 106
  Width = 965
  Height = 609
  Caption = 'Sevkiyat '#304#351'lemler'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 957
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label3: TLabel
      Left = 8
      Top = 40
      Width = 57
      Height = 14
      Caption = 'Sevkiyat No'
    end
    object Label1: TLabel
      Left = 208
      Top = 39
      Width = 541
      Height = 14
      Caption = 
        '(Teslim Formunun i'#231'indeki '#252'r'#252'nlerden Teslim Edilmeyen varsa '#246'nce' +
        'likle sipari'#351'i Sevkiyat Haz'#305'rlamaya D'#246'nd'#252'r'#252'n...)'
    end
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 39
      Height = 14
      Caption = 'Fi'#351' T'#252'r'#252
    end
    object sevkiyatnok: TwwDBLookupCombo
      Left = 72
      Top = 32
      Width = 121
      Height = 22
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'id'#9'10'#9'Sevkiyat No'#9'F'
        'sevkiyatzaman'#9'12'#9'Sevk Zaman'#305#9'F')
      LookupTable = AracZimmetQ
      LookupField = 'id'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Navigator = False
      TabOrder = 1
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = False
      OnCloseUp = sevkiyatnokCloseUp
    end
    object FisTuruk: TwwDBComboBox
      Left = 72
      Top = 8
      Width = 201
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = False
      AutoDropDown = True
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'Araca Y'#252'klenecek Fi'#351'ler'#9'1'
        'Teslim Edilecek Fi'#351'ler'#9'2'
        'Teslim Edilen Fi'#351'ler'#9'3')
      Sorted = False
      TabOrder = 0
      UnboundDataType = wwDefault
      OnCloseUp = FisTurukCloseUp
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 544
    Width = 957
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      957
      38)
    object bkapat: TBitBtn
      Left = 879
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object bbhicbirinisecme: TBitBtn
      Left = 104
      Top = 8
      Width = 81
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'T'#252'm'#252'n'#252' Se'#231
      TabOrder = 1
      OnClick = bbhicbirinisecmeClick
    end
    object blistele: TBitBtn
      Left = 3
      Top = 7
      Width = 93
      Height = 25
      Caption = 'Listele'
      TabOrder = 2
      OnClick = blisteleClick
    end
    object bonayla: TButton
      Left = 312
      Top = 8
      Width = 102
      Height = 25
      Caption = 'Araca Y'#252'kle'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = bonaylaClick
    end
    object bsiparishazirlamayagonder: TBitBtn
      Left = 200
      Top = 8
      Width = 89
      Height = 25
      Caption = 'Geri Al'
      TabOrder = 4
      OnClick = bsiparishazirlamayagonderClick
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 65
    Width = 957
    Height = 479
    Align = alClient
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 2
    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = True
    object cxGrid1DBTableView1: TcxGridDBTableView
      OnKeyDown = cxGrid1DBTableView1KeyDown
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = SiparislerQS
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = 'Adet : #'
          Kind = skCount
          FieldName = 'belgeno'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      OnColumnHeaderClick = cxGrid1DBTableView1ColumnHeaderClick
      object cxGrid1DBTableView1selected: TcxGridDBColumn
        Caption = 'Se'#231
        DataBinding.FieldName = 'selected'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = '1'
        Properties.ValueUnchecked = '0'
        Width = 33
      end
      object cxGrid1DBTableView1onaytarihi: TcxGridDBColumn
        Caption = 'Onay Tarihi'
        DataBinding.FieldName = 'onaytarihi'
        SortIndex = 0
        SortOrder = soAscending
        Width = 47
      end
      object cxGrid1DBTableView1siparisno: TcxGridDBColumn
        Caption = 'Sipari'#351' No'
        DataBinding.FieldName = 'siparisno'
        Width = 60
      end
      object cxGrid1DBTableView1guzergahkod: TcxGridDBColumn
        Caption = 'G'#252'zergah'
        DataBinding.FieldName = 'guzergahkod'
        Width = 63
      end
      object cxGrid1DBTableView1firmaadi: TcxGridDBColumn
        Caption = 'Firma Ad'#305
        DataBinding.FieldName = 'firmaadi'
        Width = 200
      end
      object cxGrid1DBTableView1Durumx: TcxGridDBColumn
        Caption = 'Sip.Durum'
        DataBinding.FieldName = 'durumx'
        Width = 90
      end
      object cxGrid1DBTableView1faturadurum: TcxGridDBColumn
        Caption = 'Fat.Durum'
        DataBinding.FieldName = 'faturadurum'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Faturaland'#305
            Value = '1'
          end
          item
            Description = 'Devam Ediyor'
            Value = '2'
          end
          item
            Description = 'Okutuldu'
            Value = '3'
          end>
        Width = 90
      end
      object cxGrid1DBTableView1bolumkodux: TcxGridDBColumn
        Caption = 'B'#246'l'#252'm'
        DataBinding.FieldName = 'bolumkodux'
        Width = 60
      end
      object cxGrid1DBTableView1ilce: TcxGridDBColumn
        Caption = #304'l'#231'e'
        DataBinding.FieldName = 'ilce'
        Width = 85
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object SoforQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select perkod,adi+'#39' '#39'+soyadi as isim from perkart'
      'where Departman='#39'3'#39' and Bolum='#39'12'#39)
    Left = 608
    Top = 240
  end
  object TeslimEdilmediYapQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sevkiyatzaman'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 12
        Value = Null
      end
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update unity_siparis_2006'
      'set sevkiyatno=null,sevkiyatzaman=:sevkiyatzaman'
      'where id=:id'
      '')
    Left = 608
    Top = 174
  end
  object SiparislerQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select 1 as selected,id,onaytarihi,siparisno,durum,'
      
        '       firmaadi=(select firmaadi from cari where cari.carikod=un' +
        'ity_siparis_2006.carikod),'
      
        '       altdurum=(select top 1 durum from fatura where fatura.bel' +
        'geno=unity_siparis_2006.siparisno),'
      
        '       bolumkodux=(select isim from St_AnaGrup where St_AnaGrup.' +
        'kod=unity_siparis_2006.bolumkodu),'
      
        '       ilce=(select ilce from cari where cari.carikod=unity_sipa' +
        'ris_2006.carikod),'
      '       guzergahkod,'
      
        '       durumx=(Select durum from p_SiparisDurum where p_SiparisD' +
        'urum.id=unity_siparis_2006.durum),'
      
        '       faturadurum=isnull((select top 1 durum from fatura where ' +
        'fatura.belgeno=unity_siparis_2006.siparisno),0)'
      '       into #yeni'
      'from unity_siparis_2006'
      'where sevkiyatno=1'
      ''
      'select * from #yeni'
      ''
      'drop table #yeni')
    Left = 80
    Top = 192
  end
  object SiparislerQS: TDataSource
    DataSet = SiparislerQ
    Left = 48
    Top = 192
  end
  object SevkiyatZamanQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct sevkiyatzaman from unity_siparis_2006'
      'where sevkiyatzaman is not null and sevkiyatno is null')
    Left = 608
    Top = 144
  end
  object GuzergahkodQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select distinct guzergahkod from cari'
      'order by guzergahkod')
    Left = 607
    Top = 206
  end
  object AracZimmetQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select  Plaka=(select plaka from p_aractanimi where p_aractanimi' +
        '.id=araczimmet.aracid),* from AracZimmet'
      'where durum is null')
    Left = 280
  end
  object TeslimEdildiYapQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update unity_siparis_2006'
      'set durum=6'
      'where id=:id'
      '')
    Left = 208
    Top = 190
  end
  object AracaYukleYapQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update unity_siparis_2006'
      'set durum=5'
      'where id=:id'
      '')
    Left = 152
    Top = 190
  end
  object PopupMenu1: TPopupMenu
    Left = 320
    Top = 272
    object SevkiyatNoAta1: TMenuItem
      Caption = 'G'#252'zergah De'#287'i'#351'tir'
      OnClick = SevkiyatNoAta1Click
    end
    object GzergahSil1: TMenuItem
      Caption = 'Sevkiyat Haz'#305'rlamaya D'#246'nd'#252'r'
      OnClick = GzergahSil1Click
    end
  end
  object GuzergahVarmiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select max(yazdirmasirasi) from unity_siparis_2006')
    Left = 608
    Top = 288
  end
end
